r3 <- lm(egalit ~ egalit_p + politic, survey)
summary(r3)
##
## Call:
## lm(formula = egalit ~ egalit_p + politic, data = survey)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.76095 -0.30453 0.01196 0.34933 1.92890
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.17279 0.14400 8.144 5.61e-15 ***
## egalit_p 0.19088 0.04513 4.229 2.94e-05 ***
## politic 0.49584 0.02912 17.030 < 2e-16 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.5357 on 378 degrees of freedom
## Multiple R-squared: 0.5503, Adjusted R-squared: 0.548
## F-statistic: 231.3 on 2 and 378 DF, p-value: < 2.2e-16